home *** CD-ROM | disk | FTP | other *** search
/ Publication 10 / Publication_10_1996_High-Tech_de_Side_B.d64 / screensplit (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  347b  |  10 lines
  1. 10 dim i,h,j,z:print"[147] publication presents screensplitting !"
  2. 11 z=53265:j=56320:h=53281
  3. 13 waitz,128
  4. 14 fori=.to.:pokeh,11:geta$:ifa$=chr$(13)then16
  5. 15 waitz,128:i=peek(j)=127:::::::pokeh,0::::next
  6. 16 print"         maybe another way...?"
  7. 17 waitz,128:fori=.to.:pokeh,11:geta$:ifa$=chr$(13)then19
  8. 18 waitz,128:i=peek(j)=127:::::::pokeh,0::::poke631,32:poke198,1:next
  9. 19 print"        dann eben nicht ;-( !!!"
  10.