REM moreprint.bas without line numbers. Launch Chipmunk Basic
REM open this file and type "run" on the commandline
REM Open graphics window and resize to a typical Commodore screen size
graphics 0
graphics window 332,212

xloc% = 0
yloc% = 0

REM 23 lines maximum. The rest is taken up by the scrollbar
for li = 0 to 25

REM 38 characters maximum. The rest is taken up by the scrollbar
for ch = 0 to 40

REM set starting point for drawing
yloc = li*8 + 1
xloc = ch * 8 + 1

REM raw a diagonal line down or upwards, according to random
if rnd(1) > 0.5 then

moveto xloc,yloc
xloc = xloc + 8
yloc = yloc + 8
lineto xloc,yloc

else

yloc = yloc + 8
moveto xloc,yloc
xloc = xloc + 8
yloc = yloc - 8
lineto xloc,yloc

end if

next
next