1000 '"MODULO" Demonstrates Modulo Arithmetic
1010 REV$="Rev: 830120"' By Robert Hamilton
1020 SCREEN 0,0,0:WIDTH 80:COLOR 2,0,0:KEY OFF:CLS:UP$=STRING$(1,30)
1030 LOCATE ,,1,12,13:DEF SEG=0:IF PEEK (&H410)= 109 THEN LOCATE ,,,6,7
1040 DEF SEG=64:POKE 23,128:DEF SEG:CL$=STRING$(79,0):Q$=CHR$(34)
1050 COLOR 6,0:LOCATE 1,32:PRINT" M O D U L O";CHR$(10)
1060 PRINT"X","X/8","X\8","X MOD 8"
1070 FOR X=48  TO 64
1080 PRINT X,X/8,X\8,X MOD 8
1090 NEXT
1100 LOCATE 22,1:PRINT"This program demonstrates Modulo Arithemetic";
1110 COLOR 6,0:END